/* isProc.asm
 * Tests whether its argument is pair
 *
 * 
 */

 IS_PAIR:
  PUSH(FP);
  MOV(FP, SP);
  MOV(R0, FPARG(2));
//printf("%d\n",R0);
  CMP(IND(R0), IMM(T_PAIR));
  JUMP_EQ(L_IS_PAIR_T);
  MOV(R0, IMM(3));
  POP(FP);
  RETURN;
 L_IS_PAIR_T:
  MOV(R0, IMM(5));
  POP(FP);
  RETURN;
